Option Explicit
Sub C_Sample021()
    Dim myRng As Range
    Set myRng = Range("A1:A3")			'Nxs
    On Error Resume Next
    Names("NewName").Delete				'RJsۦPW
    On Error GoTo 0
    'ǳƨ즹
    myRng.Name = "NewName" 				']wW
    [NewName].Select
    Set myRng = Nothing					'
End Sub

